program Project1; //Zadanie 4.7

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 10;

  type
    macierz = array[1..n, 1..n] of integer;

var
  i, j, suma : integer;
  tablica : macierz;

begin
  {wpisywanie do tablicy}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if j=1 then tablica[i,j]:=i;
          if j=2 then tablica[i,j]:=i*i;
          if j>2 then tablica[i,j]:=0;
        end; {j}
    end;   {i}   {Koniec wpisywania}

  {Wydruk zawartosci tablicy}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Write(tablica[i,j]:3,' ');
        end; {j}
       writeln;
    end;   {i}
  {Koniec wydruku tablicy}

  suma:=0;
  for i := 1 to 10 do
    suma:=suma+tablica[i,1];

  Writeln;
  Writeln('Suma liczb znajdujacych sie w pierwszej kolumnie = ', suma,'.');

  suma:=0;
  for i := 1 to 10 do
    suma:=suma+tablica[i,2];

  Writeln;
  Writeln('Suma liczb znajdujacych sie w drugiej kolumnie = ', suma,'.');

  Readln; //czeka na nacisniecie klawisza Enter
end.
